Imports SchemaCodeGen

Partial Public Class pages_schemasnapshots_usercontrols_UCSchemaSnapshot : Inherits UserControl

#Region "Interface"
	Public Sub Display(ByVal [schemaSnapshot] As CSchemaSnapshot, page As CSchemaSnapshotList, pi As CPagingInfo)
		If Parent.Controls.Count Mod 2 = 0 Then row.Attributes.Add("class", "alt_row")

		With [schemaSnapshot]
			litNumber.Text = CStr(page.IndexOf([schemaSnapshot]) + 1 + pi.PageIndex * pi.PageSize)
			litOwner.Text = .UserName
			litSchemaConnectionId.Text = .Connection.ConnectionName
			litSchemaBinary.Text = CUtilities.FileSize(.BinarySize)
			litSchemaMD5.Text = CBinary.ToBase64(.SchemaMD5)
			litSchemaCreated.Text = CUtilities.Timespan(.SchemaCreated)
			litSchemaCreated.ToolTip = CUtilities.LongDateTime(.SchemaCreated)
		End With
	End Sub
#End Region

End Class

